with Ada.Integer_Text_Io;
with Ada.Text_Io;

with Verem_Pkg;

use Ada.Integer_Text_Io;
use Ada.Text_IO;

procedure F2 is
   type napok is (hetfo, kedd, szerda, csutortok, pentek, szombat, vasarnap);

   package Int_Verem is new Verem_Pkg(napok,10);
   use Int_verem;
   v: Verem;
begin
      
   for I in hetfo..vasarnap loop
      Push(V,I);
   end loop;
   
   Pop(V);   
end F2;
